(decode-mac-roman): Test against r1 not r0.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 2572390147d43d029fdf4eb6e575742ceb4208d0..1465e1f3fabc7231431e6edc77bfd828618c03de 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -479,7 +479,7 @@ but default input method is set to \"german-postfix\"."))
       (read r1)
       (if (r1 < 128)  ;; ASCII
          (r0 = ,(charset-id 'ascii))
-       (if (r0 < 160)
+       (if (r1 < 160)
            (r0 = ,(charset-id 'eight-bit-control))
          (r0 = ,(charset-id 'eight-bit-graphic))))
       (translate-character mac-roman-decoder r0 r1)